home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 88xx / 8803a.d64 / window listing 4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.8 KB  |  75 lines
  1. 10 WI=49152
  2. 15 IFPEEK(WI)<>173ORPEEK(WI+1)<>9ORPEEK(WI+2)<>3THENLOAD"WINDOW 64",8,8
  3. 20 SYSWI
  4. 100 POKE53280,0:POKE53281,0
  5. 110 _W1,1,38,5,0,1,0,15
  6. 120 _P13,0:PRINT"WINDOW-DEMO
  7. 130 _P18,2:[153]"BY
  8. 140 _P13,4:PRINT"FRANK GRIMM
  9. 200 _W1,8,38,16,1,1,1,5
  10. 210 _P8,7:[153]"ES GIBT GROSSE WINDOWS
  11. 220 GOSUB10000
  12. 230 _W10,10,10,5,1,1,0,6
  13. 240 _P3,0:PRINT"UND
  14. 250 _P2,2:[153]"KLEINE
  15. 260 _P2,4:PRINT"WINDOWS
  16. 270 [141]10000
  17. 280 _W3,9,15,8,1,1,0,1
  18. 290 _P2,2:[153]"WINDOWS MIT
  19. 300 _P6,5:PRINT"RAND
  20. 320 _W23,9,15,8,1,0,0,1
  21. 330 _P2,2:[153]"WINDOWS OHNE
  22. 340 _P6,5:PRINT"RAND
  23. 350 [141]10000
  24. 360 _W22,10,15,8,1,1,0,7
  25. 370 _P0,3:[153]"REVERSE WINDOWS
  26. 380 _W2,10,15,8,0,1,0,7
  27. 390 _P0,3:PRINT"NORMALE WINDOWS
  28. 400 [141]10000
  29. 410 _W2,8,36,10,1,128[170]6,1,14
  30. 420 _P7,5:[153]"WINDOWS MIT 'SCHATTEN'
  31. 430 GOSUB10000
  32. 440 _W2,8,16,10,0,1,1,4
  33. 450 FORT=0TO15:POKE646,T:PRINT:PRINT" HOCHSCROLLENDE";
  34. 455 FORI=0TO100:NEXT
  35. 460 IFPEEK(198)=0THENNEXT:GOTO450
  36. 470 POKE198,0
  37. 480 _W20,8,18,10,0,1,1,4
  38. 490 FORT=0TO15:POKE646,T:PRINT"[145] RUNTERSCROLLENDE
  39. 495 [129]I[178]0[164]100:[130]
  40. 500 [139][194](198)[178]0[167][130]:[137]490
  41. 505 [151]198,0
  42. 510 _W0,7,40,13,0,0,1,3
  43. 520 _S1
  44. 530 [129]T[178]0[164]255:[153][199](T);:[130]
  45. 540 _P6,9:[153]"AUSGABE   STEUERZEICHEN";:_S0
  46. 550 [141]10000
  47. 560 _W7,8,25,10,1,1,0,1
  48. 570 _P4,1:[153]"NICHT SCROLLENDE
  49. 590 FORT=0TO100:PRINTTAB(10)T:NEXT
  50. 600 GOSUB10000
  51. 610 _W7,8,25,10,1,1,0,1
  52. 620 _P4,1:PRINT"SCROLLENDE WINDOWS
  53. 625 _W7,11,25,7,1,0,1,1
  54. 630 [129]T[178]0[164]100:[153][163]10)T:[130]
  55. 640 [141]10000
  56. 2000 _W1,8,38,12,0,1,1,7
  57. 2010 _P0,0:[153]"WAS 'UNTER' DEN WINDOWS LIEGT
  58. 2020 _P0,2:PRINT"WIRD IN EINEN PUFFERSPEICHER GERETTET.
  59. 2030 _P0,4:[153]"WENN EIN WINDOW GESCHLOSSEN WIRD
  60. 2040 _P0,6:PRINT"ERSCHEINT DAS DARUNTERLIEGENDE WIEDER.
  61. 2050 _P0,8:[153]"BITTE EINE TASTE DRUECKEN UM EIN
  62. 2060 _P0,10:PRINT"WINDOW ZU SCHLIESSEN
  63. 2100 [129]T[178]0[164]15:[141]10000:_W:[130]
  64. 2200 _W1,1,38,3,1,1,0,12
  65. 2210 _P2,1:[153]"UND HIER DAS LISTING DES PROGRAMMS
  66. 2220 _W0,5,40,20,1,0,1,12:GOSUB10000
  67. 2230 A$="G[207]2300":FORT=1TOLEN(A$):POKE630+T,ASC(MID$(A$,T,1)):NEXT
  68. 2240 POKE630+T,13:POKE198,T
  69. 2250 LIST
  70. 2300 GOSUB10000
  71. 9999 _C:END
  72. 10000 GOSUB10100
  73. 10010 WAIT198,1:POKE198,0:_W:RETURN
  74. 10100 _W1,20,37,3,1,128,0,2:_P9,1:PRINT"BITTE TASTE DRUECKEN":RETURN
  75.